Turbo Pascal Type Declarations 

        Type
           Range       = Integer;
           Number      = Integer;
           Color       = (Red, Green, Blue);
           CharValue   = Ord('A')..Ord('Z');
           JobtIndex   = 1..100;
           JobValue    = -99..99;
           JobList     = Array[TestIndex] of TestValue;
           JobListPtr  = ^JobList;
           Date        = Record
                            Year : Integer;
                            Month: 1..12;
                            Day  :  1..31;
                         End;
           JobData     = Record
                            When  : Date;
                            Count : JobIndex;
                            Data  : JobListPtr;
                         End;
           JobList     = Array[1..50] of JobData;
           Name        = String[80];
           Sex         = (Male, Female);
           Person      = PersonData;
           PersonData  = Record
                            Name,
                            FirstName : Name;
                            Age       : Integer;
                            Married   : Boolean;
                            Parent,
                            Child,
                            Sibling   :  Person;
                            Case S: Sex of
                             Male   : (Bearded  : Boolean);
                             Female : (Pregnant : Boolean);
                         End;
           PersonBuf  = Array[0..SizeOf(PersonData) - 1] of Byte;
           People     = File of PersonData;
           IntFile    = File of Integer;

           Point      = Object
                           X,
                           Y : Integer;
                        End;
           Rect       = Object
                           A,
                           B : Point;
                           Procedure Init(XA, YA, XB, YB : Integer);
                           Procedure Copy(Var R : Rect);
                           Procedure Move(DX, DY : Integer);
                           Function Contains(P : Point) : Boolean;
                        End;